excelvba中出错提示:方法range作用于对象失败
excel vba中出错提示:方法range作用于对象失败 -
可能是Range("A & i:C200")不对，试试range(cells(i,1),cells(200,3))如果还不能解决，可能是没有激活到所需工作单，第二行添一句workbooks(数据所在xls).activate
可以这么考虑！要看你的具体代码，可能是range引用的单元格区域超出表格的规定，比如你在03版里引用了第65537行或257列，这都会导致引用失败。另：Range对象是针对activesheet,看看你操作的对象表中是否存在保护等情况，
可能是Range("A & i:C200")不对，试试range(cells(i,1),cells(200,3))如果还不能解决，可能是没有激活到所需工作单，第二行添一句workbooks(数据所在xls).activate
可以这么考虑！要看你的具体代码，可能是range引用的单元格区域超出表格的规定，比如你在03版里引用了第65537行或257列，这都会导致引用失败。另：Range对象是针对activesheet,看看你操作的对象表中是否存在保护等情况，
q未赋值，默认为0，CStr(q)是空值，Range("B" & CStr(q))就是Range("B" )
Range(""" & Range("Data-analysis!AY" & i).Value & """).Interior.Color
...1880945654‘(8fe30c0a)’方法select作用于对象range时失败...
1.你应该不会VBA,请打开EXCEL信任中心，设置宏安全性为禁止启用宏后关闭所有工作薄并按提示保存。再次打开应该就OK了！2.如果不会以上操作，那么就新建一个工作薄，再把问题工作薄的内容复制过去就OK了。
需改成：Sub A()Range(Cells(1, 1), Cells(1, 1)) = "100"End Sub
EXCEL,VBA方法range作用于对象'_worksheet'时失效 -
代码看不出问题，我也试验了一下，没出问题呀。能不能把你的文件发到我的企鹅邮箱（个人资料里有），我帮你研究研究。回答补充那你这样试试看：Sheets(mySht).Range("B" & myRow) = xlSheet.Range("B" & mySht + 3).value 你是高版本EXCEL吧是什么。
Dim afnold As String ZCanSave = True afnold = Application.ActiveWorkbook.FullName If Application.Dialogs(xlDialogSaveAs).Show = False Then Application.ActiveWorkbook.SaveAs afnold Else ActiveWorkbook.Close savechanges = False End If ZCanSave = False 有帮助请点赞。
用VBA另存excel文件,提示错误:运行错误’1004‘,方法’SaveAs‘作用于...
E盘或 E:\收据\ 这个目录不存在问题补充：“工具”菜单下“选项”对话框“安全性”选项卡中的“保存时从文件属性中删除个人信息”不要选中就没提示了，
Application.ScreenUpdating = False on error resume next '忽略错误，继续执行Dim folder As String folder = ThisWorkbook.Path & "\班级成绩表"If Len(Dir(folder, vbDirectory)) = 0 Then MkDir folder Dim sht As Worksheet For Each sht In thisworkbook.Worksheets if sht.name<>"成绩表"是什么。